COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	.TITLE  Pseudo-code
C00005 ENDMK
C⊗;
.TITLE  Pseudo-code

; File that requires all the compiled files.  This is meant to be
;overlaid on top of the interpreter. 


; Only need to insert this during first pass
    .IF1

       .MACRO ASCIE STR
       .ASCIZ STR
       .EVEN
       .ENDM

	.MACRO MAKEOP CNAME, ANAME	;Compiler name, Address name
	XX	CNAME
	.ENDM

    .MACRO PLACE PHYS,VIRT
        .OFFSET 0
        .=PHYS
        .OFFSET VIRT-PHYS
    .ENDM

    K3 == 1

    .IFNZ K3
	;.PRINT /You should be using the special PALX	;true if addresses get big
/
    .ENDC

    .INSRT ALHEAD.PAL[AL,HE]
    STSW  REAL,1    ;1 => use the COMP.AL files, otherwise COMT.

    .INSRT  INTOPS.PAL[AL,HE]
            ;The interpreter operation table
    .ENDC

	PUTLOC PCDVER, PCVERSION

.IFZ K3
    . = PCODE       ;Beginning of instruction space
.IFF
    PLACE 160000,PCODE
.ENDC

.IFNZ REAL
.PRINT /Using the COMP.AL files on your current alias.
/
.INSRT	COMP.ALP
.INSRT	COMP.ALT
.INSRT	COMP.ALV
;.INSRT	COMP.ALS
.IFF
.PRINT /Using COMT
/
.INSRT	COMT.PAL[AL,HE]
.ENDC

.IF2
	FOO==.
	.INFO <First location after pseudo code = >,\FOO
	.IFZ K3
            .IFL ARMCODE-FOO
              .ERROR Pseudo code may run into the arm code.
	    .ENDC
	.IFF
	    .IFL 150000-FOO
	      .ERROR Pseudo code may run out of memory.
	    .ENDC
	.ENDC
.ENDC

.END